/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / a-d / blitzbasic21 / examples / blitzmode / blitzballs.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 20 20 74 68 69 73 20 | 69 73 20 6d 79 20 20 62 |;  this |is my  b|
|00000010| 6c 69 74 7a 20 76 65 72 | 73 69 6f 6e 20 6f 66 00 |litz ver|sion of.|
|00000020| 3b 20 20 20 20 74 68 65 | 20 6f 74 68 65 72 20 62 |;    the| other b|
|00000030| 61 73 69 63 20 70 72 6f | 67 2e 20 69 6e 20 74 68 |asic pro|g. in th|
|00000040| 65 20 4e 2e 5a 2e 20 41 | 4d 49 47 41 20 4d 41 47 |e N.Z. A|MIGA MAG|
|00000050| 2e 20 4e 6f 2e 32 00 3b | 20 20 20 74 68 65 20 73 |. No.2.;|   the s|
|00000060| 68 61 70 65 73 20 61 72 | 65 20 6d 6f 76 65 64 20 |hapes ar|e moved |
|00000070| 31 2e 35 20 64 65 67 20 | 6f 6e 20 65 61 63 68 20 |1.5 deg |on each |
|00000080| 62 69 74 6d 61 70 00 3b | 20 20 20 20 20 77 72 69 |bitmap.;|     wri|
|00000090| 74 74 65 6e 20 62 79 20 | 56 2e 20 41 2e 20 48 49 |tten by |V. A. HI|
|000000a0| 4c 4c 00 3b 20 20 68 6f | 70 65 20 69 74 20 62 65 |LL.;  ho|pe it be|
|000000b0| 20 6f 66 20 69 6e 74 65 | 72 65 73 74 20 74 6f 20 | of inte|rest to |
|000000c0| 73 6f 6d 65 62 6f 64 79 | 3f 00 3b 20 69 66 20 79 |somebody|?.; if y|
|000000d0| 6f 75 20 61 72 65 20 77 | 6f 6e 64 65 72 69 6e 67 |ou are w|ondering|
|000000e0| 20 77 68 69 63 68 20 6f | 74 68 65 72 20 62 61 73 | which o|ther bas|
|000000f0| 69 63 00 3b 20 73 70 65 | 6c 74 20 62 61 63 6b 77 |ic.; spe|lt backw|
|00000100| 61 72 64 73 20 69 74 20 | 69 73 20 53 4f 4d 41 00 |ards it |is SOMA.|
|00000110| 00 23 73 63 77 3d 33 32 | 30 3a 23 73 68 3d 32 35 |.#scw=32|0:#sh=25|
|00000120| 36 3a 23 78 6f 66 66 3d | 23 73 63 77 2f 32 3a 23 |6:#xoff=|#scw/2:#|
|00000130| 79 6f 66 66 3d 23 73 68 | 2f 32 00 23 72 64 3d 31 |yoff=#sh|/2.#rd=1|
|00000140| 31 30 00 75 2e 66 3d 36 | 2e 32 38 2f 37 32 30 00 |10.u.f=6|.28/720.|
|00000150| 80 33 2e 77 20 72 2c 64 | 65 68 2c 73 75 70 2c 63 |.3.w r,d|eh,sup,c|
|00000160| 78 2c 64 78 2c 64 79 2c | 73 63 2c 73 6e 2c 63 73 |x,dx,dy,|sc,sn,cs|
|00000170| 00 80 04 20 78 2e 77 28 | 31 35 30 30 29 2c 79 2e |... x.w(|1500),y.|
|00000180| 77 28 31 35 30 30 29 00 | 77 2e 66 3d 30 3a dd 81 |w(1500).|w.f=0:..|
|00000190| 20 22 50 6c 65 61 73 65 | 20 57 61 69 74 22 00 63 | "Please| Wait".c|
|000001a0| 79 3d 30 00 80 16 20 77 | 3d 30 20 80 18 20 36 2e |y=0... w|=0 .. 6.|
|000001b0| 32 38 20 80 19 20 75 00 | 20 20 78 28 63 79 29 3d |28 .. u.|  x(cy)=|
|000001c0| e0 0a 28 77 29 2a 23 72 | 64 3a 79 28 63 79 29 3d |..(w)*#r|d:y(cy)=|
|000001d0| e0 05 28 77 29 2a 23 72 | 64 00 20 20 78 28 63 79 |..(w)*#r|d.  x(cy|
|000001e0| 2b 37 32 30 29 3d 78 28 | 63 79 29 3a 79 28 63 79 |+720)=x(|cy):y(cy|
|000001f0| 2b 37 32 30 29 3d 79 28 | 63 79 29 00 20 20 63 79 |+720)=y(|cy).  cy|
|00000200| 3d 63 79 2b 31 00 80 17 | 20 77 00 80 16 20 63 79 |=cy+1...| w... cy|
|00000210| 3d 30 20 80 18 20 32 30 | 00 20 20 78 28 63 79 2b |=0 .. 20|.  x(cy+|
|00000220| 31 34 34 30 29 3d 78 28 | 63 79 29 3a 79 28 63 79 |1440)=x(|cy):y(cy|
|00000230| 2b 31 34 34 30 29 3d 79 | 28 63 79 29 00 80 17 20 |+1440)=y|(cy)... |
|00000240| 63 79 00 80 06 20 6d 61 | 6b 65 73 68 61 70 65 00 |cy... ma|keshape.|
|00000250| 00 80 34 00 80 16 20 64 | 3d 30 20 80 18 20 37 00 |..4... d|=0 .. 7.|
|00000260| 20 20 d0 01 20 64 2c 23 | 73 63 77 2c 23 73 68 2c |  .. d,#|scw,#sh,|
|00000270| 32 00 80 17 20 64 00 00 | ce 0a 20 30 2c 30 2c 30 |2... d..|.. 0,0,0|
|00000280| 2c 30 2c 30 3a ce 0a 20 | 30 2c 31 2c 31 35 2c 39 |,0,0:.. |0,1,15,9|
|00000290| 2c 39 3a ce 0a 20 30 2c | 32 2c 31 30 2c 30 2c 30 |,9:.. 0,|2,10,0,0|
|000002a0| 3a ce 0a 20 30 2c 33 2c | 31 32 2c 30 2c 30 00 00 |:.. 0,3,|12,0,0..|
|000002b0| c7 82 20 30 2c 32 00 c7 | 86 20 30 2c 30 00 c7 84 |.. 0,2..|. 0,0...|
|000002c0| 20 30 2c 30 00 c7 83 20 | 30 00 00 80 bb 00 72 3d | 0,0... |0.....r=|
|000002d0| 30 3a 73 63 3d 30 00 80 | bb 00 20 20 80 16 20 64 |0:sc=0..|..  .. d|
|000002e0| 65 68 3d 30 20 80 18 20 | 37 32 30 20 80 19 20 32 |eh=0 .. |720 .. 2|
|000002f0| 34 00 20 20 20 20 80 16 | 20 73 75 70 3d 30 20 80 |4.    ..| sup=0 .|
|00000300| 18 20 32 31 20 80 19 20 | 33 00 20 20 20 20 80 37 |. 21 .. |3.    .7|
|00000310| 00 20 20 20 20 c7 84 20 | 30 2c 73 63 00 20 20 20 |.    .. |0,sc.   |
|00000320| 20 80 2c 20 d0 01 20 73 | 63 00 20 20 20 20 73 6e | ., .. s|c.    sn|
|00000330| 3d 64 65 68 2b 72 2b 73 | 75 70 00 20 20 20 20 63 |=deh+r+s|up.    c|
|00000340| 73 3d 64 65 68 2b 73 75 | 70 00 20 20 20 20 64 78 |s=deh+su|p.    dx|
|00000350| 3d 78 28 73 6e 29 2b 23 | 78 6f 66 66 00 20 20 20 |=x(sn)+#|xoff.   |
|00000360| 20 64 79 3d 79 28 63 73 | 29 2b 23 79 6f 66 66 00 | dy=y(cs|)+#yoff.|
|00000370| 20 20 20 20 cb 01 20 30 | 2c 64 78 2c 64 79 00 20 |    .. 0|,dx,dy. |
|00000380| 20 20 20 73 63 3d 73 63 | 2b 31 00 20 20 20 20 80 |   sc=sc|+1.    .|
|00000390| 17 20 73 75 70 00 20 20 | 20 73 63 3d 30 00 20 20 |. sup.  | sc=0.  |
|000003a0| 80 17 20 64 65 68 00 72 | 3d 72 2b 31 36 00 80 bc |.. deh.r|=r+16...|
|000003b0| 20 72 3e 37 32 30 00 80 | bc 20 df 04 28 30 29 3d | r>720..|. ..(0)=|
|000003c0| 31 00 80 35 00 80 02 00 | 6d 61 6b 65 73 68 61 70 |1..5....|makeshap|
|000003d0| 65 3a 00 cf 01 20 30 2c | 32 00 d0 03 20 30 2c 30 |e:... 0,|2... 0,0|
|000003e0| 00 b2 05 00 bb 82 20 31 | 32 2c 32 30 2c 31 31 2c |...... 1|2,20,11,|
|000003f0| 33 00 bb 81 20 31 32 2c | 32 30 2c 31 31 2c 32 00 |3... 12,|20,11,2.|
|00000400| b2 03 20 31 34 2c 32 30 | 2c 31 00 b2 03 20 31 34 |.. 14,20|,1... 14|
|00000410| 2c 31 39 2c 31 00 bb 81 | 20 31 32 2c 32 30 2c 31 |,19,1...| 12,20,1|
|00000420| 30 2c 32 00 bb 81 20 31 | 33 2c 32 30 2c 31 30 2c |0,2... 1|3,20,10,|
|00000430| 32 00 bb 81 20 31 33 2c | 32 30 2c 39 2c 33 00 cd |2... 13,|20,9,3..|
|00000440| 08 20 30 2c 30 2c 39 2c | 32 34 2c 33 32 00 cd 0d |. 0,0,9,|24,32...|
|00000450| 20 30 00 b2 05 00 80 2b | 20 d0 01 20 30 00 80 2b | 0.....+| .. 0..+|
|00000460| 20 cf 01 20 30 00 80 07 | 00 00 00 00             | .. 0...|....    |
+--------+-------------------------+-------------------------+--------+--------+